:: Op. Dr. Hakan Teoman Yanar ::


	Prof. Dr. Cemalettin Ertekin Prof. Dr. Korhan Taviloğlu Ulusal Travma ve Acil Cerrahi Derneği Obezite Cerrahisi Procto.com Yoursurgery.com Laparoskopi.com Surgerychannel.com Türk-Medline Medscape Journal of Trauma Pubmed Johns Hopkinks

<%if request("criteria")="day" then %> <% connopen SQL = "SELECT * FROM EventItems WHERE DateSerial("&year(MyDate1)&","&month(MyDate1)&","&day(MyDate1)&")=evDate" SET RS = ConnExec(SQL) if not(rs.eof) then do while not(rs.eof)%> <% rs.movenext() loop else %> <%end if %>

Events: <%=RegDate(MyDate1,2)%>

<%= rs("timeStart") & " - " & rs("timeEnd") %>

" class="ver10blue"><%=rs("itTitle")%>

<%=StrCrop(rs("location"),25)%>

Record not found

Record not found!

<%end if if request("recID")<>"" then 'etkinlik detay ConnOpen SET RS = ConnExec("SELECT * FROM EventItems WHERE Auth=1 AND itID="&Request("RecID")) if not(rs.eof) then %> <%if rs("onlineLcw") then %> <% If Session("SignIN") = True Then SET RS1 = ConnExec("SELECT usrNumber, firstName &' ' &LastName As mName FROM Login,Contacts WHERE login.LoginID=Contacts.LoginID AND Login.LoginID="&Session("LoginID")) if not(rs1.eof) then usrNumber = rs1("usrNumber") mName = rs1("mName") end if %> <% else gsm = Array("+90","5--","") tel = Array("+90","212","") %> <%end if %> <%end if %>


Name of the event
Name :	<%=rs("itTitle")%>
Date :	<%=regDate(rs("evDate"),2)%>
Time :	<%=rs("timeStart") & " - " & rs("timeEnd") %>
Place :	<%if rs("location")<>"" then response.write replace(rs("location"),VBCRLF," ")%>
Details:	<%desc=rs("desc") if desc<>"" then response.write replace(desc,VBCRLF," ")%>

<%else %>

Record not found

record not found

<% end if end if %>